      DIMENSION ISHLCO(MXCORB),ICMPCO(MXCORB)
      DIMENSION ICSHCM(0:MXSHEL,0:MXAQN)
      COMMON/COTABS/ISHLCO,ICMPCO,ICSHCM,ICOMID,ICOMAX
